home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 65 / 065.d81 / ss 1990 creator (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  43 lines
  1. 60 sa=828
  2. 70 ea=sa+183
  3. 80 hs=int(sa/256):ls=sa-(hs*256)
  4. 90 he=int(ea/256):le=ea-(he*256)
  5. 100 fori=sa to ea:readd:pokei,d:next
  6. 110 sys57812"ss 1990",8:poke193,ls:poke194,hs:poke174,le:poke175,he:sys62954
  7. 120 end
  8. 200 rem sys hs,x    x = 1 to 7   store
  9. 210 rem
  10. 220 rem sys hs+3,x  x = 1 to 7   recall
  11. 230 rem
  12. 240 rem sa must be in open ram
  13. 250 rem it can't be under the roms
  14. 260 rem
  15. 828 data 024,234,036,056,008,120,162
  16. 835 data 000,142,250,255,202,142,251
  17. 842 data 255,169,096,141,000,255,165
  18. 849 data 251,072,165,252,072,165,253
  19. 856 data 072,165,254,072,008,032,253
  20. 863 data 174,032,158,173,032,170,177
  21. 870 data 170,208,079,133,251,133,253
  22. 877 data 152,041,007,240,070,010,010
  23. 884 data 010,201,040,144,003,105,183
  24. 891 data 044,105,152,133,254,172,136
  25. 898 data 002,240,051,132,252,165,001
  26. 905 data 041,253,133,001,040,162,004
  27. 912 data 160,000,176,040,177,251,145
  28. 919 data 253,200,208,249,230,252,230
  29. 926 data 254,202,208,242,169,216,133
  30. 933 data 252,162,004,177,251,145,253
  31. 940 data 200,208,249,230,252,230,254
  32. 947 data 202,208,242,240,038,104,184
  33. 954 data 080,034,177,253,145,251,200
  34. 961 data 208,249,230,252,230,254,202
  35. 968 data 208,242,162,004,169,216,133
  36. 975 data 252,177,253,145,251,200,208
  37. 982 data 249,230,252,230,254,202,208
  38. 989 data 242,165,001,009,002,133,001
  39. 996 data 104,133,255,104,133,253,104
  40. 1003 data 133,252,104,133,251,040,096
  41. 1010 data 000,000
  42. 10000 open15,8,15,"s0:ss 1990 creator":close15:save"ss 1990 creator",8:end
  43.